home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 41 / 64er_Magazin_Sonderheft_41_19xx_Markt__Technik_de.d64 / listing 16 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  754b  |  40 lines
  1. 100 rem auto-'&'-maker
  2. 110 rem --------------
  3. 120 rem
  4. 130 rem  03.11.84.  boris schneider
  5. 140 :
  6. 150 :
  7. 160 rem initialisierung
  8. 170 input"startadresse des &-files";sa
  9. 180 input"name des &-files";na$
  10. 190 if len(na$)>15 then 180na$
  11. 200 open1,8,2,"&"+na$+",u,w"
  12. 210 dimx(256)
  13. 220 print"bitte geben sie jetzt ihre daten ein"
  14. 230 print"abschluss mit -1!"
  15. 240 :
  16. 250 rem dateneingabe und test auf
  17. 260 rem ueberlauf
  18. 270 y=1
  19. 280 inputx(y)
  20. 290 ifx(y)<0theny=y-1:goto 350
  21. 300 pr=pr+x(y):ifpr>255then pr=pr-255
  22. 305 y=y+1:ify>254 then 350
  23. 310 goto 280
  24. 320 :
  25. 330 rem abspeichern der vorhandenen
  26. 340 rem daten in das usr-file
  27. 350 sh=int(sa/256)
  28. 360 sl=sa-256*sh
  29. 370 pr=pr+sh+sl+y
  30. 380 print#1,chr$(sl);chr$(sh);
  31. 390 print#1,chr$(y);
  32. 400 fori=1toy
  33. 410 print#1,chr$(x(i));
  34. 420 next
  35. 430 pr=pr-(255*int(pr/256))
  36. 440 print#1,chr$(pr);
  37. 450 if x(y+1)<0thengoto470
  38. 460 sa=sa+y:pr=0:goto270
  39. 470 close1
  40.